cap program drop add_info
program define add_info
	
	syntax varlist(min = 1 max = 1 numeric), [NUM(integer 10) ID(varlist numeric)] 
	
	qui distinct `id' if e(sample) == 1
	global cluster`num' = "{`r(ndistinct)'}"
	global N`num' = "{`e(N)'}"
	qui sum `varlist' if e(sample) == 1
	global mean`num': di %04.3f `r(mean)'
	
end
